home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / icons+tools / iconian / sources / emodules / mod / color.e < prev    next >
Text File  |  1995-12-22  |  460b  |  17 lines
  1. OPT MODULE
  2.  
  3. MODULE    'graphics'
  4. MODULE    'mod/bits'
  5.  
  6. EXPORT PROC exchangecolorcmap(cmap,c1,c2)
  7.     DEF buf
  8.     buf:=New(32)
  9.     GetRGB32(cmap,c1,1,buf)
  10.     GetRGB32(cmap,c2,1,buf+12)
  11.     SetRGB32CM(cmap,c2,Long(buf),Long(buf+4),Long(buf+8))
  12.     SetRGB32CM(cmap,c1,Long(buf+12),Long(buf+16),Long(buf+20))
  13.     Dispose(buf)
  14. ENDPROC
  15.  
  16. EXPORT PROC findcolorbytes(cmap,byte_red,byte_grn,byte_blu,highpen) IS FindColor(cmap,byte2long(byte_red),byte2long(byte_grn),byte2long(byte_blu),highpen)
  17.